home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGMISC / FORTRAN1.LZH / BLANKS.FOR < prev    next >
Text File  |  1988-02-08  |  2KB  |  90 lines
  1.       SUBROUTINE BLANKS ( STRING, L )
  2. C*
  3. C*                  *******************************
  4. C*                  *******************************
  5. C*                  **                           **
  6. C*                  **          BLANKS           **
  7. C*                  **                           **
  8. C*                  *******************************
  9. C*                  *******************************
  10. C*
  11. C*     SUBPROGRAM :
  12. C*          REMOVE BLANKS
  13. C*
  14. C*     AUTHOR :
  15. C*          ART RAGOSTA
  16. C*          MS 207-5
  17. C*          AMES RESEARCH CENTER
  18. C*          MOFFETT FIELD, CA  94035
  19. C*          (415) 694-5578
  20. C*
  21. C*     PURPOSE :
  22. C*          REPLACE A STRING WITH THE SAME STRING LESS LEADING AND
  23. C*          EMBEDDED BLANKS.
  24. C*
  25. C*     METHODOLOGY :
  26. C*          NA
  27. C*
  28. C*     INPUT ARGUMENTS :
  29. C*          STRING - STRING FROM WHICH BLANKS ARE TO BE REMOVED
  30. C*
  31. C*     OUTPUT ARGUMENTS :
  32. C*          STRING - STRING WITHOUT EMBEDDED BLANKS(INPLACE)
  33. C*          L      - THE LOCATION OF THE LAST NON-BLANK CHARACTER
  34. C*
  35. C*     INTERNAL WORK AREAS :
  36. C*          NONE
  37. C*
  38. C*     COMMON BLOCKS :
  39. C*          NONE
  40. C*
  41. C*     FILE REFERENCES :
  42. C*          NONE
  43. C*
  44. C*     DATA BASE ACCESS :
  45. C*          NONE
  46. C*
  47. C*     SUBPROGRAM REFERENCES :
  48. C*          NONE
  49. C*
  50. C*     ERROR PROCESSING :
  51. C*          NONE
  52. C*
  53. C*     TRANSPORTABILITY LIMITATIONS :
  54. C*          NONE
  55. C*
  56. C*     ASSUMPTIONS AND RESTRICTIONS :
  57. C*          NONE
  58. C*
  59. C*     LANGUAGE AND COMPILER :
  60. C*          ANSI FORTRAN 77
  61. C*
  62. C*     VERSION AND DATE :
  63. C*          VERSION I.0     15-OCT-84
  64. C*
  65. C*     CHANGE HISTORY :
  66. C*          15-OCT-84    INITIAL VERSION
  67. C*
  68. C***********************************************************************
  69. C*
  70.       CHARACTER *(*) STRING
  71. C
  72.       L = LEN(STRING)
  73.       I = 1
  74.       DO 10 J = 1, L
  75.          IF (STRING(J:J) .NE. ' ') THEN
  76.             STRING(I:I) = STRING(J:J)
  77.             I = I + 1
  78.          ENDIF
  79. 10       CONTINUE
  80. C
  81. C --- IF THE OUTPUT STRING IS LESS THAN FULL, PAD WITH BLANKS
  82. C
  83.       IF ( I .LE. L ) STRING(I:L) = ' '
  84.       L = I - 1
  85.       RETURN
  86.       END
  87. C
  88. C---END BLANKS
  89. C
  90.